home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 33 / 033.d81 / laser lament (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  10.0 KB  |  61 lines
  1. 0 a=a+1:ifa=1thenload"pgm.bin",8,1
  2. 1 ifa=2thenload"spr",8,1
  3. 2 poke55,255:poke56,131:clr:ba=33792:dp=ba+3:sa=ba+6:bs=ba+9:bl=ba+12:ds=ba+15:fm=ba+18:xf=ba+21:ho=ba+24:hf=ba+27:mo=ba+30:mf=ba+33:ce=ba+36:cd=ba+39:dc=ba+42:uc=ba+45:cw=ba+48:rw=ba+51:pl=ba+54:up=ba+57:dr=ba+60:ud=ba+63:bf=ba+66:sb=ba+69:br=ba+72:se=ba+75
  4. 29 fs=ba+78:so=ba+81:sd=ba+84:sp=ba+87:sr=ba+90:rs=ba+93:sx=ba+96:an=ba+99:ca=ba+102:jo=ba+105:jf=ba+108:wc=ba+111:rw=ba+114:fw=ba+117:rd=ba+120:syssa,57344,52224:sysba:sysho:sysse:poke53280,0:poke53281,0:ra=0:ifpeek(49167)<>7orpeek(49170)<>7orpeek(49173)<>4thensysbl,49152,"spr,p
  5. 53 ad[178][194](781)[170][194](782)[172]256:sd[178]54272:[158]cd,55296,1,1,"stopload":[158]dr,100,0,319,0,1,0:[158]dr,319,0,319,199:[158]dr,319,199,100,199:[158]dr,100,199,100,0:[158]dr,240,199,240,125:[158]dr,240,125,319,100:[158]dr,160,0,165,7:[158]dr,165,7,185,7:[158]dr,185,7,190,0:[158]dr,185,7,185,30
  6. 75 [158]dr,165,7,165,30:[158]dr,165,30,160,35:[158]dr,185,30,190,35:[129]t[178]319[164]190[169][171]5:[158]dr,t[171]5,22,t,22:[158]dr,t[171]5,26,t,26:[130]:[158]dr,189,22,185,22:[158]dr,189,26,185,26:[158]dr,319,23,186,23:[158]dr,319,25,186,25:[158]dr,319,24,186,24:[129]c[178]10[164]1[169][171]1:[158]dr,319,22,186,22,c,0:[158]dr,319,26,186,26,c,0:[130]
  7. 100 [129]t[178]22[164]26:[158]ud,318,t,186,t:[130]:[129]t[178]185[164]165[169][171]1:[158]dr,t,8,t,30,1,0:[130]:[129]c[178]10[164]1[169][171]1:[141]9100:[129]t[178]184[164]166[169][171]3:[158]dr,t,8,t,30,c,0:[130]:[130]:[158]ba[170]3[172]28,0,0,0,0,0,1:[158]ba[170]3[172]29,0,195,60,5:[158]ba[170]3[172]27,1,0:[129]t[178]184[164]166[169][171]1:[158]ud,t,8,t,30:[130]:[129]u[178]1[164]250:[130]:x[178]195:r[178]0:pt[178]8:[129]y[178]60[164]232[169]4:[141]9000:[130]
  8. 135 pt[178]5:y[178]232:[141]9000:[129]u[178]1[164]250:[130]:pt[178]7:[141]9000:[129]u[178]1[164]250:[130]:pt[178]6:[141]9000:[158]dr,0,99,100,199:[129]t[178]98[164]80[169][171]1:[158]dr,0,t,100,t[170]100:[158]ud,0,t,100,t[170]100:[130]:[158]dr,0,t,100,t[170]100:fr[178]195:tm[178]116:sl[178][171]3:mn[178]20:mx[178]24:[141]7000:fr[178]116:tm[178]24:sl[178][171]3:ra[178][171]3.0:mn[178]20:mx[178]24:[141]7000:[158]ba[170]81,0,0
  9. 180 [158]cd,55296,1,1,"stopload":[158]dr,319,199,270,150:[158]dr,270,150,0,150:[158]dr,319,179,270,130:[158]dr,270,130,80,130:[158]dr,80,130,0,0:x[178]333:y[178]229:[141]9000:[158]ba[170]81,1,0:fr[178]333:tm[178]289:sl[178][171]3:ra[178][171]3:mn[178]20:mx[178]24:[141]7000:fr[178]289:tm[178]24:sl[178][171]3:ra[178]0:mn[178]20:mx[178]24:[141]7000:[158]ba[170]81,0,0
  10. 230 [158]cd,55296,1,1,"stopload":[158]dr,319,150,160,150:[158]dr,160,150,109,199:[158]dr,0,75,190,75:[158]dr,190,75,100,0:x[178]320:y[178]183:[141]9000:[158]ba[170]81,1,0:fr[178]320:tm[178]175:sl[178][171]3:ra[178]0:mn[178]20:mx[178]24:[141]7000:pt[178]25:[141]9000:fr[178]175:tm[178]125:sl[178][171]3:ra[178]3:mn[178]25:mx[178]25:[141]7000:[158]ba[170]81,0,0
  11. 270 [158]cd,55296,1,1,"stopload":[158]dr,100,0,100,50:[158]dr,100,50,0,50:[158]dr,319,0,120,199:[158]dr,120,199,0,199:x[178]320:y[178]50:[141]9000:[158]ba[170]81,1,0:fr[178]319:tm[178]222:sl[178][171]3:ra[178]3:mn[178]25:mx[178]25:[141]7000:[158]ud,219,100,189,130:[141]4005:[158]dr,219,100,319,199:[158]dr,189,130,258,199:pt[178]8:[141]9000
  12. 305 [129]y[178]147[164]180[169]3:[141]9000:[130]:fr[178]222:tm[178]270:sl[178]3:ra[178]3:mn[178]4:mx[178]4:[141]7000:[158]ba[170]81,0,0:[158]cd,55296,1,1,"stopload":[158]dr,70,0,145,75:[158]dr,100,0,175,75:[158]dr,145,75,140,80:[158]dr,175,75,180,80:[158]dr,140,80,140,199:[158]dr,180,80,180,199:[158]dr,142,125,178,125:[158]dr,160,125,160,199
  13. 345 x[178]100:y[178]50:pt[178]4:[141]9000:[158]ba[170]81,1,0:fr[178]100:tm[178]170:sl[178]3:ra[178]3:mn[178]4:mx[178]4:[141]7000:pt[178]8:[141]9000:[129]y[178]120[164]158[169]3:[141]9000:x[178]x[170].75:[130]:pt[178]5:[141]9000:[129]u[178]1[164]500:[130]:[129]yy[178]125[164]199[169]4:[158]dr,142,yy,178,yy:[158]ud,160,yy,160,yy[171]4:[158]ud,142,yy,178,yy:y[178]y[170]4:[141]9000:[130]:[158]ba[170]81,0,0
  14. 385 [158]cd,55296,1,1,"stopload":[158]dr,140,0,140,125:[158]dr,140,125,0,125:[158]dr,0,150,140,150:[158]dr,140,150,140,199:[158]dr,180,0,180,199:[158]dr,160,25,160,199:[158]dr,142,25,178,25:x[178]179:y[178]59:pt[178]5:[141]9000:[158]ba[170]81,1,0:[129]yy[178]25[164]146[169]4:[158]dr,142,yy,178,yy:[158]ud,160,yy,160,yy[171]4
  15. 420 [158]ud,142,yy,178,yy:y[178]y[170]4:[141]9000:[130]:[158]dr,142,yy,178,yy:[158]ud,160,yy[171]1,160,yy[171]4:pt[178]6:[141]9000:[158]dr,180,151,319,151:[158]dr,140,125,140,150:[158]ud,180,125,180,150:[158]ud,0,125,139,125:[158]ud,0,150,139,150:[158]dr,180,125,319,125:[158]dr,180,150,319,150
  16. 435 [158]dr,180,125[170](150[171]yy),319,125[170](150[171]yy):[158]ud,0,150,139,150:pt[178]7:[141]9000:[129]u[178]1[164]300:[130]:fr[178]179:tm[178]320:sl[178]3:mn[178]15:mx[178]19:ra[178]0:y[178]184:[141]7000:[158]ba[170]81,0,0:[158]cd,55296,1,1,"stopload":[158]dr,0,170,80,170:[158]dr,80,170,100,150:[158]dr,100,150,240,150
  17. 485 [158]dr,240,150,260,130:[158]dr,260,130,319,130:[158]dr,0,130,70,130:[158]dr,70,130,90,110:[158]dr,90,110,230,110:[158]dr,230,110,250,90:[158]dr,250,90,319,90:x[178]024:y[178]203:[141]9000:[158]ba[170]81,1,0:fr[178]24:tm[178]100:sl[178]3:mn[178]15:mx[178]19:ra[178]0:y[178]203:[141]7000
  18. 515 fr[178]100:tm[178]116:sl[178]3:mn[178]15:mx[178]19:ra[178][171]3:[141]7000:fr[178]116:tm[178]255:sl[178]3:mn[178]15:mx[178]19:ra[178]00:y[178]y[171]2:[141]7000:fr[178]257:tm[178]276:sl[178]3:mn[178]15:mx[178]19:ra[178][171]3:y[178]y[170]2:[141]7000:fr[178]276:tm[178]320:sl[178]3:mn[178]15:mx[178]19:ra[178]00:[141]7000:[158]ba[170]81,0,0:[158]cd,55296,1,1,"stopload
  19. 550 sysdr,0,120,200,120:sysdr,200,120,200,0:sysdr,240,0,240,199:sysdr,0,150,207,150:sysdr,207,150,200,155:sysdr,200,155,200,199:x=24:y=183:gosub9000:sysba+81,1,0:fr=24:tm=220:y=183:ra=0:sl=3:mn=15:mx=19:gosub7000:pt=5:x=221:gosub9000:foru=1to250:next:pt=7:gosub9000:foru=1to250:next
  20. 575 syscd,55296,16,25,"?":foru=1to500:next:syscd,55296,16,25," ":c=1:foryy=199to150step-1:sysdr,208,yy,229,yy,c,0:sysud,208,yy,229,yy:c=c+1:ifc>10thenc=1
  21. 590 next:forc=1to10:sysdr,208,150,229,150:next:fr=223:tm=237:ra=0:sl=2:mn=0:mx=3:gosub7000:pt=5:y=y+1:gosub9000:c=1:foryy=150to20step-2:sysdr,208,yy,229,yy,c,0:sysud,208,yy,229,yy:c=c+1:ifc>10thenc=1
  22. 615 y=y-2:gosub9000:next:sysba+81,0,0:syscd,55296,1,1,"[144][147]":sysdr,30,199,30,40,1,0:sysdr,30,40,65,20:sysdr,65,20,319,20:sysdr,80,199,80,55:sysdr,80,55,73,50:sysdr,73,50,319,50:x=80:y=223:pt=5:gosub9000:sysba+81,1,0:c=1:foryy=190to50step-2:sysdr,54,yy,72,yy,c,0:sysud,54,yy,72,yy
  23. 655 c=c+1:ifc>10thenc=1
  24. 660 y=y-2:gosub9000:next:forc=10to1step-1:sysdr,54,50,72,50,c,0:next:y=y+3:fr=80:tm=100:sl=2:mn=0:mx=3:ra=0:gosub7000:pt=5:gosub9000:c=1:foryy=50to199step2:sysdr,54,yy,72,yy,c,0:sysud,54,yy,72,yy:c=c+1:ifyy=60thensysdr,73,50,73,50,1,0
  25. 685 ifc>10thenc=1
  26. 690 next:fr=100:tm=320:sl=3:ra=0:mn=15:mx=19:gosub7000:sysba+81,0,0:syscd,55296,1,1,"[144][147]":sysdr,0,30,230,30,1,0:sysdr,0,50,205,50:sysdr,230,30,250,35:sysdr,250,35,250,60:sysdr,225,50,230,50:sysdr,230,50,230,60:sysdr,230,60,250,60,6,0:sysdr,230,60,230,199:sysdr,250,60,250,199
  27. 730 forxx=205to225step4:sysdr,xx,50,xx+2,50,2,0:next:sysdr,215,180,210,199,2,0:sysdr,215,180,220,199:y=84:x=24:gosub9000:sysba+81,1,0:fr=24:tm=230:sl=3:mn=15:mx=19:ra=0:gosub7000:x=235:pt=5:gosub9000:foru=1to300:next:pt=7:gosub9000:foru=1to500:next:sysdr,215,180,215,50,2,0:gosub4045:sysud,215,180,215,50
  28. 760 fr=235:tm=245:sl=1:mn=8:mx=11:ra=-1:gosub7000:fr=245:tm=255:sl=1:mn=8:mx=11:ra=2:gosub7000:x=x+3:fory=95to100:pt=10:gosub9000:next:gosub4005:fory=100to110:pt=10:gosub9000:next:fr=258:tm=259:sl=.03:ra=3:mn=26:mx=27:gosub7000:sysba+81,0,0:syscd,55296,1,1,"[144][147]
  29. 805 [158]dr,170,0,170,130,6,0:[158]dr,170,130,0,130:[158]dr,0,170,170,170:[158]dr,170,170,170,199:[158]dr,200,199,200,0:x[178]205:y[178]50:[141]9000:[158]ba[170]81,1,0:fr[178]205:tm[178]206:sl[178].022:ra[178]3:mn[178]26:mx[178]27:[141]7000:fr[178]206:tm[178]24:sl[178][171]3:ra[178]0:mn[178]28:mx[178]29:[141]7000:[158]ba[170]81,0,0:[158]cd,55296,1,1,"stopload
  30. 850 sysdr,0,130,140,130,6,0:sysdr,140,130,140,110,1,0:sysdr,140,110,180,110:sysdr,180,110,180,130:sysdr,180,130,319,130,6,0:sysdr,0,170,319,170,6,0:sysdr,140,130,180,130,6,0:sysdr,140,110,140,110,1,0:syscd,55296,14,18,"air":x=320:y=188:gosub9000:sysba+81,1,0
  31. 875 fr=320:tm=200:sl=-3:ra=0:mn=28:mx=29:gosub7000:fr=200:tm=180:sl=-3:ra=-3:mn=28:mx=29:gosub7000:foru=1to1000:next:fr=180:tm=160:sl=-3:ra=3:mn=28:mx=29:gosub7000:fr=160:tm=24:sl=-3:ra=0:mn=28:mx=29:gosub7000:sysba+81,0,0:syscd,55296,1,1,"[144][147]
  32. 910 [158]dr,0,130,85,130,1,0:[158]dr,85,130,319,130,6,0:[158]dr,0,170,85,170,1,0:[158]dr,85,170,319,170,6,0:[129]xx[178]80[164]85:[158]dr,xx,130,xx,170,1,0:[130]:[158]dr,93,169,93,165,2,0:x[178]320:y[178]188:[141]9000:[158]ba[170]81,1,0:fr[178]320:tm[178]125:sl[178][171]3:mn[178]28:mx[178]29:ra[178]0:[141]7000
  33. 930 fr[178]125:tm[178]112:sl[178][171]2:mn[178]28:mx[178]29:ra[178]2:[141]7000:[158]ud,93,169,93,165:[158]dr,93,169,91,167,2,0:[158]ud,93,169,91,167:[158]dr,93,169,89,169,2,0:[129]xx[178]120[164]125:[158]dr,xx,130,xx,170,1,0:[130]:[129]yy[178]131[164]136:[158]dr,88,yy,119,yy,6,0:[158]ud,88,yy,119,yy:[130]:[158]dr,85,130,120,130,1,0
  34. 955 [129]yy[178]136[164]160:[158]dr,88,yy,119,yy,6,0:[158]ud,88,yy,119,yy:[130]:pt[178]30:[141]9000:[129]yy[178]160[164]167:[158]dr,88,yy,119,yy,6,0:[158]ud,88,yy,119,yy:y[178]y[170]1:[141]9000:[130]:[158]dr,85,170,120,170,1,0:[129]xx[178]85[164]80[169][171]1:[158]ud,xx,131,xx,169:[130]:pt[178]5:[141]9000:y[178]y[171]7:fr[178]x:tm[178]24:sl[178][171]3:mn[178]20:mx[178]24:ra[178]0:[141]7000
  35. 995 [158]ba[170]81,0,0:[158]cd,55296,1,1,"stopload":[158]dr,0,130,319,130,1,0:[158]dr,0,170,140,170:[158]dr,140,170,140,199:[158]dr,180,170,180,199:[158]dr,180,170,319,170:[158]dr,160,130,160,199:x[178]320:y[178]203:[141]9000:[158]ba[170]81,1,0:fr[178]320:tm[178]200:sl[178][171]3:mn[178]20:mx[178]24:ra[178]0:[141]7000
  36. 1025 pt[178]31:[129]x[178]200[164]181[169][171]1:y[178]y[171].5:[141]9000:[130]:fr[178]181:tm[178]182:sl[178].06:mn[178]31:mx[178]32:ra[178]3:[141]7000:[158]ba[170]81,0,0:[158]cd,55296,1,1,"stopload":[158]dr,0,130,140,130,1,0:[158]dr,140,130,140,0:[158]dr,160,0,160,140:[158]dr,180,0,180,130:[158]dr,180,130,319,130:[158]dr,0,170,319,170
  37. 1060 x[178]181:y[178]50:[141]9000:[158]ba[170]81,1,0:fr[178]181:tm[178]182:sl[178].025:mn[178]31:mx[178]32:ra[178]3:[141]7000:[129]u[178]1[164]250:[130]:[129]y[178]190[164]202:pt[178]8:[141]9000:[130]:pt[178]5:[141]9000:[129]u[178]1[164]500:[130]:pt[178]6:[141]9000:[129]u[178]1[164]500:[130]:pt[178]7:[141]9000:[129]u[178]1[164]500:[130]:[129]i[178]1[164]5:[158]cd,55296,19,30,"->":[129]u[178]1[164]50:[130]:[158]cd,55296,19,30,"  ":[129]u[178]1[164]50:[130]:[130]
  38. 1095 fr[178]181:tm[178]260:sl[178]3:mn[178]15:mx[178]19:ra[178]0:[141]7000:[158]ud,230,170,250,170:[141]4005:[158]dr,230,170,230,199:[158]dr,250,170,250,199:pt[178]8:[129]y[178]202[164]229[169]2:[141]9000:[130]:[158]ba[170]81,0,0:[158]cd,55296,1,1,"stopload":[158]dr,150,0,150,100:[158]dr,170,0,170,100:[158]dr,170,100,210,100
  39. 1130 [158]dr,150,100,110,100:[158]dr,110,100,110,150:[158]dr,110,150,210,150:[158]dr,210,150,210,100:pt[178]8:x[178]177:y[178]50:[141]9000:[158]ba[170]81,1,0:[129]y[178]50[164]183[169]2:[141]9000:[130]:y[178]183:pt[178]33:[141]9000:[141]4035:pt[178]5:[141]9000:[129]u[178]1[164]200:[130]:[129]yy[178]101[164]135:[158]dr,111,yy,209,yy:[158]ud,111,yy,209,yy:[130]
  40. 1165 pt[178]8:[141]9000:[129]yy[178]135[164]136:[158]dr,111,yy,209,yy:[130]:[129]u[178]500[164]1[169][171]15:[129]t[178]1[164]u:[130]:[141]9100:[130]:[158]ud,150,150,170,150:[141]4005:[158]dr,150,150,150,199:[158]dr,170,150,170,199:[129]y[178]183[164]229[169]2:[141]9000:[130]:[158]ba[170]81,0,0:[158]cd,55296,1,1,"stopload":[158]dr,150,0,150,130:[158]dr,150,130,0,130:[158]dr,170,0,170,130
  41. 1205 [158]dr,170,130,175,135:[158]dr,175,135,175,150:[158]dr,175,150,0,150:x[178]177:y[178]50:pt[178]8:[141]9000:[158]ba[170]81,1,0:[129]y[178]50[164]183[169]3:[141]9000:[130]:pt[178]33:[141]9000:[141]4035:[129]u[178]1[164]200:[130]:pt[178]5:[141]9000:[129]u[178]1[164]200:[130]:pt[178]6:[141]9000:[129]u[178]1[164]200:[130]:y[178]y[171]2:fr[178]177:tm[178]24:sl[178][171]3:mn[178]20:mx[178]24:ra[178]0:[141]7000:[158]ba[170]81,0,0
  42. 1235 [158]cd,55296,1,1,"stopload":[158]dr,0,130,319,130:[158]dr,0,130,0,150:[158]dr,0,150,319,150:[158]dr,10,130,15,139:[129]t[178]15[164]17:[158]dr,t,139,t,141:[130]:[129]t[178]10[164]15:[158]dr,10,150,t,141:[130]:[129]t[178]10[164]15:[158]dr,10,130,t,139:[130]:[129]t[178]0[164]10:[158]dr,t,130,t,150:[130]:[129]t[178]139[164]141:[158]dr,10,t,17,t:[130]
  43. 1265 [158]dr,80,150,80,145:[158]dr,80,145,90,145:[158]dr,90,145,95,150:x[178]320:y[178]183:[141]9000:[158]ba[170]81,1,0:fr[178]320:tm[178]110:sl[178][171]3:mn[178]20:mx[178]24:ra[178]0:[141]7000:fr[178]110:tm[178]105:sl[178][171]3:mn[178]20:mx[178]24:ra[178][171]1.5:[141]7000:fr[178]105:tm[178]100:sl[178][171]3:mn[178]20:mx[178]24:ra[178]0:[141]7000
  44. 1290 y[178]178:pt[178]5:[141]9000:[129]u[178]1[164]500:[130]:pt[178]6:[141]9000:[129]c[178]15[164]1[169][171]1:[158]dr,0,135,12,135,c,0:[158]dr,0,140,16,140:[158]dr,0,145,12,145:[141]9100:[129]u[178]1[164]100:[130]:[130]:[129]c[178]8[164]1[169][171]1:[158]dr,18,140,85,140,c,0:[141]4045:[130]:[158]ud,18,140,85,140:[129]u[178]1[164]200:[130]:[158]ba[170]81,0,0:[158]cd,55296,5,13,"inputdim(NULL)he valndgotorun
  45. 1330 syscd,55296,8,7,"[208]ress any key to continue.":poke198,.:wait198,1:syshf:sysdp:open15,8,15,"r0:hello connect=hello connect":input#15,er:close15:print"[147]";:ifer<>63thenend
  46. 1369 poke178,13
  47. 1370 load"hello connect",8
  48. 4005 s=54272:pokes+24,15:pokes+5,190:pokes+6,25:forz=127to10step-17:pokes+1,2*z:pokes+1,129-z:pokes+4,17:forl=1to4:next:pokes+1,4:next:pokes+4,16:return:s=54272:pokes+24,15:pokes+6,240:pokes+4,17:forla=1to2:forlx=255to1step-55:pokes+1,lx/2:pokes+1,255-lx/2:next:next:pokes+4,16:return
  49. 4025 s=54272:pokes+24,15:pokes+6,240:pokes+4,17:forvx=1to255step25:pokes+1,vx/2:next:pokes+4,16:return
  50. 4035 s=54272:pokes+5,9:pokes+6,9:pokes+24,15:pokes+4,17:forld=1to40:pokes+1,62-ld:pokes+4,17:next:pokes+4,16:return
  51. 4045 s=54272:pokes+1,14:pokes+5,3:pokes+6,255-15:pokes+24,15:pokes+4,17:forld=40to1step-2:pokes+1,40-ld:pokes+4,17:next:forld=1to40step2:pokes+1,40-ld:pokes+4,17:next:return
  52. 6999 goto6999
  53. 7000 z=0:r=0:pt=mn:forf=frtotmstepsl:z=z+1:ifz<3then7020
  54. 7010 ifpt<mxthenpt=pt+1:z=0:goto7020
  55. 7015 pt=mn:z=0
  56. 7020 x=f:y=y+ra:gosub9000:ifpt=15orpt=20orpt=18orpt=23thengosub9100
  57. 7021 ifpt>14andpt<25thenz=2
  58. 7025 next:return
  59. 9000 sysba+3*29,r,x,y,pt:return
  60. 9100 pokesd+24,.:pokesd+24,15:return
  61.